(defun laser-on	()
  (princ " P85 M98\n" output)
)					; LASER-ON

(defun laser-off ()
  (princ " P95 M98\n" output)
)					; LASER-OFF
